inherited frmMarca: TfrmMarca
  Left = 556
  Top = 188
  Caption = ''
  ClientHeight = 452
  ClientWidth = 654
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 654
  end
  inherited Panel2: TPanel
    Width = 654
    Height = 415
    inherited Panel3: TPanel
      Width = 652
      Caption = 'Marca'
      inherited GroupBox1: TGroupBox
        Left = 573
      end
    end
    inherited Panel4: TPanel
      Width = 652
      Height = 373
      object Label1: TLabel [0]
        Left = 23
        Top = 22
        Width = 33
        Height = 14
        Caption = 'C'#243'digo'
        FocusControl = EdtMarCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 23
        Top = 65
        Width = 27
        Height = 14
        Caption = 'Nome'
        FocusControl = EdtMarNome
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel [2]
        Left = 23
        Top = 110
        Width = 47
        Height = 14
        Caption = 'Comiss'#227'o'
        FocusControl = edtComissao
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        Width = 644
        Hint = 
          ' Click na coluna ou no titulo para ordenar e habilitar alterar, ' +
          'excluir'
        TabOrder = 3
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 644
      end
      object EdtMarCodigo: TDBEdit
        Left = 23
        Top = 35
        Width = 113
        Height = 21
        Hint = 'C'#243'digo de Marca '
        CharCase = ecUpperCase
        DataField = 'MAR_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtMarCodigoExit
      end
      object EdtMarNome: TDBEdit
        Left = 23
        Top = 78
        Width = 305
        Height = 21
        Hint = 'Nome de Marca '
        CharCase = ecUpperCase
        DataField = 'MAR_NOME'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EdtMarNomeExit
      end
    end
  end
  object edtComissao: TDBEdit [2]
    Left = 23
    Top = 163
    Width = 113
    Height = 21
    Hint = 'Comiss'#227'o de Marca '
    CharCase = ecUpperCase
    DataField = 'MAR_COMISSAO'
    DataSource = DtSrc
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Verdana'
    Font.Style = []
    MaxLength = 9
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnExit = EdtMarCodigoExit
  end
  inherited DtSrc: TDataSource
    AutoEdit = False
    DataSet = SQLC_Marca
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 184
    Top = 272
  end
  inherited ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    Left = 225
    Top = 273
  end
  inherited DSP_Consulta: TDataSetProvider
    Left = 273
    Top = 273
  end
  inherited CDS_Consulta_DbGrid: TClientDataSet
    Top = 273
  end
  object SQLC_Marca: TSQLClientDataSet
    CommandText = 'select * from MARCA  where mar_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 153
    Top = 72
    object SQLC_MarcaMAR_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'MAR_CODIGO'
      Required = True
      FixedChar = True
      Size = 15
    end
    object SQLC_MarcaMAR_NOME: TStringField
      DisplayLabel = 'NOME'
      FieldName = 'MAR_NOME'
      Required = True
      Size = 35
    end
    object SQLC_MarcaMAR_COMISSAO: TFMTBCDField
      FieldName = 'MAR_COMISSAO'
      Precision = 15
      Size = 2
    end
  end
end
